home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / Search.wrx < prev    next >
Text File  |  1996-09-26  |  2KB  |  111 lines
  1. /*
  2.  * WRITE V3.531 © 1991-1994 by Tim Teulings
  3.  *
  4.  * Dieses Script öffnet einen Filerequester, in dem man verschiedene Files
  5.  * auswählen kann. Anschließen öffnet sich der GETFINDREPLACE-Requester,
  6.  * im welchem man dann ein Suchwort auswählen kann.
  7.  * Write such dann in den entsprechenden Files nach dem Suchwort und zeigt
  8.  * alle gefundenen Stellen an.
  9.  *
  10.  */
  11.  
  12. IF ~show('P',"WRITE") THEN
  13. DO
  14.   say "Dieses Skrpit arbeitet nicht ohne dem Texteditor WRITE !"
  15.   EXIT 0
  16. END
  17.  
  18. ADDRESS "WRITE"
  19.  
  20. OPTIONS RESULTS
  21. SIGNAL ON SYNTAX /* Abfangen von Syntaxfehlern */
  22.  
  23. 'VERSIONCHECK 3848 "Search.wrx"'
  24. IF RC~=0 THEN DO
  25.   exit 10
  26. END
  27.  
  28. ID = -1
  29.  
  30. CLEARLIST 0
  31. GETFILES "" "" 0
  32. IF RC~=0 THEN DO
  33.   EXIT
  34. END
  35.  
  36. LISTSIZE 0
  37. Size = RESULT
  38.  
  39. IF Size=0 THEN DO
  40.   EXIT
  41. END
  42.  
  43. 'NEWED "EMPTY.CONFIG"'
  44. ID = RESULT
  45. LOCKWINDOW ID
  46.  
  47. 'GETFINDREPLACE _FindString _ReplaceString'
  48. IF RC~=0 THEN DO
  49.   QUITED
  50.   EXIT
  51. END
  52.  
  53. LastLine = -1
  54.  
  55. DO x=1 TO Size
  56.  
  57.   GETLISTENTRY 0 x
  58.   IF RC=0 THEN DO
  59.     File = RESULT
  60.     say File || ...
  61.   END
  62.  
  63.   OPEN "(" || File || ")"
  64.   IF RC=0 THEN DO
  65.  
  66.     found = 0
  67.  
  68.     'FIND @CURSOR @CURSOR @EOT @EOT {@SILENT}'
  69.     DO WHILE RC=0
  70.  
  71.       'GETVAR "_yPos"'
  72.       Line = RESULT
  73.       'GETVAR "_CurrentLine"'
  74.       Text = RESULT
  75.  
  76.       if LastLine~=Line then do
  77.         say strip(Line) || " : " || Text
  78.       end
  79.  
  80.       LastLine=Line
  81.  
  82.       found = found + 1
  83.  
  84.       'FIND @CURSOR @CURSOR @EOT @EOT {@SILENT}'
  85.     END
  86.  
  87.   END
  88.  
  89.   ID = -1
  90.  
  91.   IF found>0 THEN DO
  92.     say
  93.   END
  94.  
  95. END
  96.  
  97. QUITED
  98.  
  99. EXIT
  100.  
  101. /********/
  102. /* Ende */
  103. /********/
  104.  
  105.  
  106. SYNTAX:
  107.  
  108. SAY "Leider trat ein Fehler auf... Zeile " SIGL ":" ERRORTEXT(RC)
  109. LOCKWINDOW 0
  110. EXIT
  111.